*****************************************
*** Politburos of Eastern Europe
*** Austin S. Matthews
*** Replication Files
*****************************************


*************
*** Load data
*************

import excel "/Users/austinmatthews/Library/CloudStorage/OneDrive-EastCarolinaUniversity/Paper - Politburo Elites Data/pb elites individual data.xlsx", sheet("data") firstrow

destring, replace

drop if leader == 1



**************************
*** Table 1
**************************

logit purged stalinera i.ccode, cluster(ccode)

outreg2 using table11, replace

logit purged stalinera tenure exitage firstgen female milsec i.ccode, cluster(ccode)

outreg2 using table11

logit punished stalinera i.ccode, cluster(ccode)

outreg2 using table11

logit punished stalinera tenure exitage firstgen female milsec i.ccode, cluster(ccode)

outreg2 using table11


**************************
*** marginplots 
**************************

logit purged stalinera tenure exitage firstgen female milsec i.ccode, cluster(ccode)

margins, at (stalinera = (0,1) tenure = 7.504318 exitage = 56.4778 firstgen = 0 female = 0 milsec = 0)


logit punished stalinera tenure exitage firstgen female milsec i.ccode, cluster(ccode)

margins, at (stalinera = (0,1) tenure = 7.504318 exitage = 56.4778 firstgen = 0 female = 0 milsec = 0)


********************************
*** Table A1: summary statistics
********************************

sum purged punished stalinera tenure exitage firstgen female milsec



